
##################################
# Tables with outcome descriptives 
##################################

# Exploratory Analysis ---------------------------------------------------------
EA_desc_DV<-data_EA_cov%>%
  dplyr::select(., 
                activism,
                pol_news_con,
                news_openness,
                pol_efficacy,
                pol_confidence,
                pol_knowledge)%>%
  describe() %>% 
  dplyr::select(n, mean, sd, median, min, max) %>% 
  dplyr::rename(N=n, Mean=mean, SD=sd, Mdn = median, Min=min, Max=max)%>%
  knit_print(skimr_digits = 2)

stargazer(EA_desc_DV,type="latex", digits = 2, digits.extra = 0, summary = F, style = "apsr")
# Confirmatory Analysis --------------------------------------------------------
CA_desc_DV<-data_CA_cov%>%
  dplyr::select(., 
                activism,
                pol_news_con,
                news_openness,
                pol_efficacy,
                pol_confidence,
                pol_knowledge)%>%
  describe() %>% 
  dplyr::select(n, mean, sd, median, min, max) %>% 
  dplyr::rename(N=n, Mean=mean, SD=sd, Mdn = median, Min=min, Max=max)%>%
  knit_print(skimr_digits = 2)

stargazer(CA_desc_DV,type="latex", digits = 2, digits.extra = 0, summary = F, style = "apsr")

# Meta-Analysis ----------------------------------------------------------------
meta_desc_DV<-meta%>%
  dplyr::select(., 
                activism,
                pol_news_con,
                news_openness,
                pol_efficacy,
                pol_confidence,
                pol_knowledge)%>%
  describe() %>% 
  dplyr::select(n, mean, sd, median, min, max) %>% 
  dplyr::rename(N=n, Mean=mean, SD=sd, Mdn = median, Min=min, Max=max)%>%
  knit_print(skimr_digits = 2)

stargazer(meta_desc_DV,type="latex", digits = 2, digits.extra = 0, summary = F, style = "apsr")
